home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 26 / CU Amiga Magazine's Super CD-ROM 26 (1998)(EMAP Images)(GB)[!][issue 1998-09].iso / CUCD / Utilities / MARInA / Install-Guide / Start_Rexx.script < prev   
Text File  |  1998-05-26  |  1KB  |  70 lines
  1. ; Start Rexxmaster and RexxReqtools
  2.  
  3. ;deliver rexxmast and rxlib if not existent on the host system
  4.  
  5. setenv Msg Rexx_log
  6.  
  7. if ${Flags/REXX_INSTALLED} eq 1
  8.     skip END
  9. endif
  10.  
  11. if not exists sys:system
  12.     c/makedir sys:system
  13.     setenv MsgFlag 1   ;for signalling if $Msg must be popped up
  14. endif
  15.  
  16. if not exists sys:system/rexxmast
  17.     skip Create
  18. endif
  19.  
  20. ;this should be standard on up-to-date systems, but who
  21. ;knows if any user has deleted those libraries? Keep sure...
  22. ;so everything will work properly.
  23.  
  24. if not exists sys:libs/reqtools.library
  25.     skip Create
  26. endif
  27.  
  28. if not exists sys:libs/rexxreqtools.library
  29.     skip Create
  30. endif
  31.  
  32. if not exists SYS:libs/rexxsupport.library
  33.     skip Create
  34. endif
  35.  
  36. if not exists SYS:libs/rexxsyslib.library
  37.     skip Create
  38. endif
  39.  
  40. if not exists sys:rexxc
  41.     skip Create
  42. endif
  43.  
  44. if not exists sys:rexxc/rxlib
  45.     skip Create
  46. endif
  47.  
  48. if not exists sys:rexxc/rx
  49.     skip Create
  50. endif
  51.  
  52. Lab Create
  53.  
  54.  c/copy /sys/Inst_rexx SYS: CLONE ALL QUIET
  55.  setenv MsgFlag 1
  56.  
  57.  run >NIL: sys:system/rexxmast
  58.  wait 1
  59.  
  60.  sys:rexxc/rxlib rexxsupport.library 0 -30
  61.  sys:rexxc/rxlib rexxreqtools.library 0 -30
  62.  
  63.  if not exists ENV:Flags
  64.     makedir ENV:Flags
  65.  endif
  66.  
  67.  setenv Flags/REXX_INSTALLED 1
  68.  
  69. Lab End
  70.